home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok15.lha / Seafarers_Manual / Source / CalcWeight.mod < prev    next >
Text File  |  1993-08-15  |  922b  |  37 lines
  1. MODULE CalcWeight;   (* Calculate average weight *)
  2.  
  3.   (* From the book "Modula-2  A Seafarer's Manual and Shipyard Guide" *)
  4.   (* Page 53   adapted "Amiga M2Modula-2"   04 Mar 1988 *)
  5.  
  6. FROM InOut IMPORT WriteString,
  7.            WriteLn,
  8.                   ReadCard;
  9.                   
  10. FROM RealInOut IMPORT ReadReal,
  11.                   WriteReal;
  12.                       
  13. VAR
  14.   NumPeople : CARDINAL;
  15.   TotalWeight,
  16.   AverageWeight : REAL;
  17.   
  18. BEGIN
  19.   WriteString ("Enter number of people: ");
  20.   ReadCard (NumPeople);   (* get group size from keyboard *)
  21.   
  22.   IF (NumPeople # 0) THEN   (* avoid division by 0 *)
  23.     WriteLn;
  24.     WriteString ("Total Weight? ");
  25.     ReadReal (TotalWeight);
  26.     AverageWeight := TotalWeight / FLOAT(NumPeople);
  27.     WriteLn;
  28.     WriteString ("Average weight is ");
  29.     WriteReal (AverageWeight,10,2);
  30.     WriteLn;
  31.   ELSE
  32.     WriteString ("Number must be > 0 to calculate average");
  33.   END;
  34.  
  35. END CalcWeight.
  36.  
  37.